PROGRAMS 



An exciting graphics 
adventure game for the ZX81 






The Plot 

King Xmon was furious. "That rogue Zabad the 
Sorcerer has stolen the Chalice of Power," he roared. 
"It must be recovered — summon my Champion, 
Melion!" 

Melion was called and appeared before his 
King. The King wasted no time and charged him with 
the immediate recovery of the Chalice. 

As the powers that Melion was about to en- 
counter were essentially magical, he decided to take 
with him his magic staff. The staff would provide him 
with defence, the power to attack and money, if need- 
ed. Fully charged, it held 1 000 units of power, and as 
he took it from its place, glistening in the light and with 
an aura of power shimmering around it, he knew he 
would need all the power it possessed. 

Zabad dwelt in an underground system of 
chambers connected by tunnels and inhabited by many 
evil creatures. Originally excavated as burial 
chambers, this had for many years been the lair of 
Zabad and his 'pets'. For far and wide, people trembled 
at the very mention of the Sorcerer's Lair. 

A mental command to his staff and the 
universe spun round. Melion was transported to an 
empty chamber in the Sorcerer's Lair. Already 500 
units of his staff's power was exhausted. Now he 
could only return if he found the Chalice. With only 
BOOunitsof power left, it wasn't going to be easy . . . 


Machine Code 

This program uses four machine code routines. They 
are as follows, and are held in the first line (a REM line). 

1) 16514to 16527 Subroutine to check if key is 

pressed and find its value (in 
Register A) 

2) 16528 to 16552 Routine calling 1) to check if 

valid key is pressed (compares 
to CS) 

3) 1 6553 to 1 6623 Routine to move/scroll map 

sideways — calls routine 2, 
prints elements of MS 

4) 1 6624 to 1 6637 A search routine to check and 

find the inverse X position on 
screen 

Also held in the REM are two 'look-up' tables for the 
program. 

1 6638 to 1 6721 An 84 byte table of chamber co- 
ordinates related to MS(YI,XI) 
for each room position 

16772 to 16889 A 168 byte table containing 
room relationships, eg connec- 
ting rooms 



At first I held these tables in two strings; however, this 
meant that each table occupied over twice as much 
memory because they were held once in the BASIC 
listing, and again in the variables area. My solution was 
to transfer them to the REM where they are only kept 
once, then to PEEK at them. 


9000 PRINT "ADDRESS TO START ?"; 

9010 INPUT A 
9020 PRINT A 
9030 LET A$="" 

9040 LET X=0 

9050 IF A$="" THEN INPUT A$ 

9060 IF A$="S" THEN STOP 
9070 IF X=0 THEN SCROLL 
9080 IF X=0 THEN PRINT A;": 

9090 PRINT A$ ( TO 2) ; " 

9100 POKE A,16*CODE A$+CODE A$(2)-476 

9110 LET A=A+1 

9120 LET A$=A$ (3 TO ) 

9130 LET X=X+1 

9140 IF X=6 THEN GOTO 9040 

9150 GOTO 9050 

9200 PRINT "START ADDRESS ?" 

9210 INPUT A 
9220 FOR 1=0 TO 21 
9230 SCROLL 
9240 PRINT A;": " ; 

9250 FOR J=0 TO 5 
9260 r ET P = PEEK A 
9270 LET N=INT (P/16) 

9230 PRINT CHR$ (N+28);CHR$ (P-16*N+28 ) ; " " 

9290 LET A=A+1 
9300 NEXT J 
9310 NEXT I 

9320 IF CODE INKEY$0118 THEN GOTO 9320 
9330 GOTO 9220 

Program 1 . Hex loader routine. 


To set up this section of the program, type in 
Program 1 , which is a variation of the Hex loaders 
which have been printed many times: if you already 
have one then use that. Note that the code from line 
9200 provides a mini disassembler — useful for check- 
ing your entries. 

Before running this program, type in 1 REM 
followed by 380 dots, and newline. 

If you now type POKE 16510,0 newline, 
you'll find 1 REM. . . has now become 0 REM . . . and 
cannot be removed — a useful safety device. 

Now RUN the program and to the prompt 
"START ADDRESS" enter 165 14 newline. Now enter 
all the code in Fig. 1 — very carefully. I suggest you 
enter the six bytes (1 2 characters) of each line — no 
spaces — and newline, then double check with the 
screen. If you do make an error, input S newline, RUN 
the program, enter the address at the start of the error 
line and re-enter all six bytes — continue as before. 
When it is all in, press S newline, and relax. 
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Check all is in position by the following tests: 

Type 

Correct No on screen 

PRINT PEEK 16527 

201 

PRINT PEEK 16699 

0 

PRINT PEEK 16624 

1 

PRINT PEEK 16889 

39 


If anything different turns up then type GOTO 9200 
enter 16514 to the prompt and carefully check the 
screen against the print until you find the error. 

Now SAVE your program, because if 
anything is still wrong, the following tests could 
destroy it. 

Type RAND USR 16514 newline. The screen 
should be clear; pressing any key should produce a 0/0 
report — if so, then it's OK. 

Add lines: 

3 REM 

5 DIM C$ (5) 

10 DIM M$ (21,79) 

It is essential that lines 5 and 1 0 occupy these posi- 
tions and in this order, else the machine code will be 
unable to find them when the time comes. 
Temporarily type: 

20 LET C$="IANU*" 

30 LET X= USR 16528 

RUN this, the screen will be blank until any of the four 
keys in (3S are pressed — even Break doesn't work! 
This provides the perfect INKEYS function as no other 
code is required for checking keypress validity! Also X 
becomes the value (1 to 4) depending on the order in 
CS. Therefore you could type 

20 LET C$="4321*" and X 

This would return the value of 5-key, ie inverted 
values. 

To check the next two sections you will need 
to type in all the code from line 9500 to 9720. Once 
you have done this, type 

20 GOSUB 9500 

30 LET C$="LRE*" 

40 LET X= USR 16620 

50 STOP 


RUN this (after SAVEing) and, if all is OK, by pressing L 
and R the map should scroll from side to side. Press E 
when you get fed up to return to BASIC. 

Finally to check the last section change and add the 
lines: 
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LET Y=INT (RND*42+1) 

LET YI= PEEK (16637-I-Y*2-1) 
LET XI= PEEK (16637-t-Y*2) 
LET M$ (YI,XI)=”X” 

LET C$="LRE*" 

LET X=USR 16620 
LET X=USR (16624)-! 


RUN this, as before scroll the map back and forward 
until the room in which the inverse X appears is on the 
screen — press E. 

Type Print X — a high number should appear 
(this may vary depending on how much BASIC has 
been entered). Typing POKE X, 1 28 should produce an 
inverse square on the screen in the same place as the 
inverse X occupied previously. 


Line 

5 to 167 
170 to 320 
330 to 480 
500 to 530 
600 to 620 
700 to 740 
800 to 830 
900 to 990 
1000 to 1020 
2000 to 2290 
3000 to 3520 

4000 to 4140 
5000 to 5150 
6000 to 6220 
7000 to 7190 
8000 to 8030 
8500 to 8740 
9200 to 9230 
9500 to 9720 


Function 

Set up the game 

The main game loop 

End of game routines 

A 'pause' subroutine 

'Power left' routine 

Position player subroutine 

Jump from room 1 4-40 routine 

Jump (move) under tunnels 

Find and print monster/character 

Map and movement 

Print new room, character and 

monster attack routines 

'Create wall' routine 

'View' routine 

Surrounding rooms print subroutine 
Title and instructions 
Scroll CLS routine 
Wandering monsters subroutine 
Assign beasties to rooms subroutine 
Set up map in MS 


Table 1 . Explanations and functions of lines in Program 2. 



BASIC 

If all is well then enter the main program, Pro- 
gram 2. It may be wise to delete your existing lines in 
order to avoid confusion as you should no longer need 
them. 

The only area which is likely to cause problems is the 
'Map' section, the correct spacings and inverse 
characters must be used . The map diagram is for you to 
check your program with, adjust faulty lines until it is 
correct with Fig. 2. Note that if wrong, the machine 
code will still work OK, but your map will print in a 
disconnected, mixed-up way. 


Playing the Game 

You and the Sorcerer start in random rooms. You will 
be given clues as to what is lurking in adjacent rooms. 
To find out exactly what lies in wait, use the 'View' 
facility; this uses power, however. To move, use the 
Move option; you will be shown the map from the left 
side. Use keys L/R to scroll the map left or right to get 
your character (inverse X) onto the screen. Also posi- 
tion the map so that the room you wish to move to is on 
screen; once you are ready, press E. Now move your 
character along the tunnels using cursor keys (5,6,7 
and 8). 


You may be attacked along the way; if so, you 
must decide whether to use more of your precious staff 
power or to retreat. If you retreat you will be put back 
into the room you started from. When you reach a new 
room (or return to your starting room), the screen will 
clear and the details of the room will be printed. 

When (and if) you locate the Sorcerer, you 
must chase him around — he will always escape if 
there is an exit — until he is in a room with only two tun- 
nels (eg, 1 5, 1 8 etc). You can block his exit by creating 
a magic wall in one of the attached rooms, then ap- 
proach him from the other side (he cannot get past 
you). However, sometimes the magic wall doesn't 
work and it all takes up precious power from your staff! 


Emergency Cover 

If you encounter any problems with getting the pro- 
gram to run, it is almost certainly caused by a slip or 
two whilst entering the data. Get someone esie to go 
over the whole thing for you. If you follow the instruc- 
tions given here, it will work. You may think you've 
done it perfectly, but get it checked all the same. 

If all else fails then you can write for 
assistance to Poster Programs No 3, ASP Ltd, 145 
Charing Cross Road, London WC2H OEE. Please note 
that we cannot deal with any enquiries by telephone. 


PF-EUTOIIS ^Pn^ESF^^■ UOCOTTOr4 1 



Fig. 2. The final map. 




Program 2. The mail 


(RN 


2 REM LN 


I ■7'?'?=c 


=C RUNLN E 

c FOR HexT 

K-tp^ND4PX RETURN 

DEfRND* S~m E (RND“ 

^u?s.f?5«S ife 


P|a- ■COS 7Y#li7C F 

1s^5^S*r^ 



URIT 


-47 ? 4 q 
258B. 

5 DIM C$C5) 

10 DIM M$(21^70) 

15 G05UB 7130 
20 PRINT RT 10, 0; -PLERSE 
UHILE I SET UP GRME- 
25 LET N=42 
30 LET RT*3 
35 LET L=0 
40 DIM B(4) 

45 GOSUB 9500 
65 DIM R(N) 

70 FOR X=1 TO 10 
80 GOSUB 9200 
90 NEXT X 
100 FOR 1=1 TO 3 
110 LET X=10 
115 GOSUB 9200 
120 NEXT I 
130 LET X=ll 
135 GOSUB 9200 
140 LET X=0 
145 GOSUB 9200 
150 LET Y=RM 
152 GOSUB 700 

154 LET X=0 

155 GOSUB 9200 
160 LET C=RM 
165 LET M=5O0 
167 LET L=0 
170 LET U=0 
175 LET K=0 

179 GOSUB 6000 

180 PRINT ^,TRB 13; "CHOOSE" 

HRERTE URLL BOUE BIEU" 

190 LET C$ = "M/CU^t" 

200 GOSUB 1OO0-I-1O0O*USR 16528 
240 IF R(Y)=0 OR K=1 OR R (Y) =10 
OR RCY)=11 OR U=1 THEN GOTO 280 
250 PRINT , , "THE "; 

253 LET Z=Y 
255 GOSUB 100O 

>7 PRINT "URKES UP. 


260 GOTO 390 

280 IF M>0 THEN GOTO 320 
290 PRINT , , "YOUR STRFF IS NOU 
USELESS" , "RND THE EUIL FORCE RTT 
RCKS" 

300 GOTO 390 

320 IF U=0 THEN GOTO 170 
330 PRINT RT 5 , 7; "CONGRRTULRT lO 
N • 

3*0 PRINT YOU HRUE DEFERTE 

' SORCERER , UOUUD 

OTHER ^ONE^°? '- ' ' ■■ 

345 PRINT , , , ,TRB 8;’fi 


^0 


50 LET C*="YN*" 

360 IF USR 16528=2 THEN STOP 
370 LET M» CYI,XI) =CHR$ U 
380 GOTO 60 ^ 

i *’«H DERR, YOU RPPERR 
^DO YOU URNT TO BE 

400 L^rT^?"YN*" 

4-10 IF USR 16528=2 THEN STOP 
420 PRINT , , "UITH THE SRME SORC 
ERER 7" 

425 IF INKEY$<>"" THEN GOTO 425 
430 IF USR 16528=2 THEN GOTO 37 
e 

440 LET X-0 
450 GOSUB 9200 
460 LET Y=RM 

465 LET M$ (VI,XI) =CHR$ U 

470 GOSUB 700 

475 CLS 

480 GOTO 165 

500 FOR 1=1 TO 50 

510 NEXT I 

530 RETURN 

600 LET M=M-R 

610 PRINT , , "YOU HRUE USED ";R, 
’• UNITS.", "YOU HRUE ";M;" UNITS 
LEFT . " 


'4Y»2-1) 

'4Y*2) 

(I) 


U 


620 GOfo 500 
700 LET YI=PEEK ( 1663" 

710 LET XI=PEEK ( 16637 H 
720 LET U=CODE M$(YI,X] 

730 LET M$ (YI,XI) ="B*^ 

740 RETURN 

800 LET MS (YI,XI) =CHR* 

810 LET XI= (XI=79) -f (79 RND XI»1 

) 

820 LET MS (YI,XI) ="B'* 

830 GOTO 2000 

900 IF (0=16 RND PEEK (Z-1) =189 
) OR (0=17 RND PEEK (Z-M) =189) T 
HEN GOTO 2120 
905 LET FL=0 

910 FOR E=Z-(3 RND R = l) TO Z-»-(3 
PND R=4) 

915 IF PEEK E=118 THEN LET FL=1 
920 NEXT E 

925 LET MS CYI,XI) =CHRS U 
930 LET XI=XI-l-4# ( (0 = 17) - (0 = 16) ) 
940 LET Z=Z+3* ( (0=17) - (0=16) ) 
950 IF FL=0 THEN POKE Z,CODE "D 


960 POKE P,U 

970 LET P=Z 

980 LET MS (YI^XI) ="B** 

985 IF FL=1 THEN GOTO 2005 
990 GOTO 2120 

1000 PRINT ("RED DRRGON" RND R(Z 
) =1)4 ("GREEN DRRGON" RND R (Z) =2) 
4("YELL0U DRRGON" RND R(Z)=3)4(" 
PLRTINUM SERPENT" RND R(Z)=4)+(" 
GOLD SERPENT" RND R (Z) =5) 4 ( "SILU 
ER SERPENT" RND R (Z) =6) 4 ( "DWRRF 
WITH R SRBRE" RND R (Z) =7) 4 ( "DURR 
F WITH R SWORD" RND R(Z)=8)4("DU 
RRF UITH R KNIFE" RND R(Z)=9)4(" 
FRIENDLY GNOME" RND R(Z)=10)4("M 
RGIC SPOT" RND R(Z)=11) 

101O LET S=URL "3025202823182419 
140000" (14 (R (Z) -1) 42 TO R(Z)*2) 
1020 RETURN 
2000 CLS 

2005 LET CS = **LRE4" 

2010 POKE 16418,0 

2015 PRINT RT 0,0; " PREUIOUS^'PR 
ESENT LOCRTION ";Y 

2020 PRINT RT 23,0; "L OR R TO MO 
UE MRP:E TO CONTINUE" 

2030 LET MP=USR 16620 
2050 LET P=(USR 16624) -1 
2060 IF Po-1 THEN GOTO 2100 
2070 PRINT RT 23,0; "YOU RRE NOT 
ON SCREEN : MOUE MRP . " 

2080 GOSUB 500 
2090 GOTO 2020 
2100 LET CS = **56784" 

2110 PRINT RT 23,0; "USE KEYS 5,6 
,7 RND 8 TO MOUE MRN" 

2120 LET R=(USR 16528) 

2130 LET Z=P4 (R=4) - (R = l) 433* ( (R = 
2) - (R=3) ) 

2135 LET 0=PEEK Z 

2140 IF YI=10 RND (XI=1 OR XI=79 
) RND 0=118 THEN GOTO 800 
2145 IF 0=16 OR 0=17 THEN GOTO 9 
O0 

2150 IF 0=0 OR 0=118 OR (0=5 RND 
PEEK (Z4l) =169) OR (0=133 RND P 
EEK (Z-1) =189) THEN GOTO 2120 
2155 LET D=U 
2160 POKE P,U 
2170 LET MS (YI,XI) =CHRS U 


21GO LET U=0 
2190 LEI 

2200 POKE P,CODE -B- 
2210 LET YI=YI4 (R=2) - (R=3) 

2220 LET XI=XI4 (R=4) - (R=l) 

2230 LET MS (V I , XI) =-n ' 

2235 IF RND >.93 RND U=128 THEN G 
OTO 8500 

2240 IF (U>155 RND DM55) OR U<1 
56 THEN GOTO 2120 
2250 LET YS = ***‘ 

2260 IF CODE M S ( Y I , X I - 1 ) < 156 THE 
N GOTO 2270 

2265 LET YS=YS4CHR$ (CODE M$(YI, 
XI-1) -128) 

2270 LET YS-YS-*-CHRS (U-128) 

2275 IF CODE M S (Y I , X 1 4 1 ) < 156 THE 
N GOTO 2285 

2280 LET YS=YS+CHRS (CODE MSCYI, 
XI41) -128) 

2285 LET P=URL Y$ 

2290 CLS 

2300 POKE 16418,2 

3000 IF COP THEN GOTO 3180 

3010 LET U=1 

3020 GOSUB 3470 

3030 IF F=0 THEN GOTO 3080 

3040 LET U=0 

3045 LET X=0 


3050 GOSUB 9200 
3060 LET C=RM 
3070 GOTO 3160 
3080 FOR 1=1 TO 4 

3090 LET T=PEEK ( 

) 

3100 IF T=0 OR T= 
THEN GOTO 3120 
3103 IF R (T) =10 T 
3105 LET C=T 

3110 LET U=0 

3113 GOSUB 3470 
3115 IF F=1 THEN 
3120 NEXT I 
3140 IF U=1 THEN 
3150 PRINT "THE 5 
OFF. " , , , 

3155 GOTO 3180 
3160 PRINT "THE S 
THE MRGIC SPOT, 
3180 LET Y=P 
3185 IF R (Y) =0 TH 
3190 GOSUB 6000 
3195 IF R (Y) Oil 
3200 PRir>fT "YOU H 
N ON THE MRGIC 

3205 LET X=0 
3210 GOSUB 9200 
3215 LET Y=RM 
3220 LET MSCYI, XI 
3225 GOSUB 700 
3227 RETURN 
3230 IF R (Y) <>10 
3240 LET R=INT (fi 
3250 PRINT , , "THE 
L YOU WHERE THc 
R ";R;" GOLD","CC 
o •• 


3255 LET B=0 
3260 LET CS="YN4 ' 
3270 IF USR 16526 
3280 PRINT , , "HE 


3290 GOTO 3450 
3300 LET K=0 
3303 LET Z=Y 
3305 PRINT , , "THI 
3307 GOSUB lOOO 
3310 PRINT "IS Rl 
,^YOU HRUE 3 CH( 
"BrUN IT",,TRB 9 
,TRB 9; "BESTROY 
3320 PRINT , ,TRB 
D" 


3330 LET CS = ’*STDl 
3340 LET R=USR 
3350 PRINT RT 21, 
GIC TO "4 ("STUN* 
SPORT" RND R=2)4( 
3370 INPUT R 
3375 IF R<=0 OR P 
70 

3380 CLS 

3385 PRINT **THE ' 
3390 GOSUB 1O00 
3395 PRINT "IS 
3397 LET B=0 
3400 LET 0=RND 
3405 IF R=1 RND ( 

3410 IF R=1 RND ( 
LET K=1 

3415 IF R < >2 OR I 
GOTO 3430 


3420 PRINT iiiaagli 
3423 LET X=RlY) 
3425 LET R(Y)=0 
3427 GOSUB 9200 
3430 LET 0=RND 
3433 IF R=3 RND ( 
PRINT "BIHiB9iBBI 
3435 IF R=3 RND ( 
LET RCY)=0 
3440 IF K=0 RND F 
NT •• ONLY DRZED . " 
3445 IF K=0 RND f 
B*INT (RND«84l) 
3450 GOSUB 600 
3455 IF B>2 RND r 
0O 

3460 RETURN 
3470 LET F=0 
3480 FOR U=1 TO 4 
3490 LET T=PEEK I 


3495 IF T<1 THEN 
3500 IF R (T) =111 
3510 NEXT U 
3520 RETURN 
4000 CLS 

4010 PRINT "UHICr 
WISH TO CRER1 

L IN 7** 


n program in BASIC 


1 

(16721-*- (C*4.-4. + I) 
=Y OR T=L OR T=P 
rHEN GOTO 3120 


GOTO 304.0 
RETURN 

SORCERER HRS RUN 


SORCERER TROD ON 

*» * » t » 

HEN RETURN 

THEN GOTO 3230 
NRUE UUST TRODDE 
C SPOT B ^ j» j» ^ 


I)=CHR$ U 


THEN GOTO 3300 
RND«20) <l>20 
E GNOME UILL TEL 
£ SORCERER IS FO 
□ INS .... Y OR N 


6=2 THEN RETURN 
15 IN CHRMBER ” 


E 


BOUT TO RTTRCK*’ . 
□ ICES TRB 9; 

; "Brrnsport it- ^ 

rr •• 

8; '-PRESS S^T OR 


6528 

^0;"RMOUNT OF MR 
RND R = l) 4- ( -TRRN 
("KILL- RND R=3) 

R>M THEN GOTO 33 


(R>S+0*S/3) THEN 
(R>S+0*S,^3) THEN 
(R<S4RND9tS) THEN 

(R >S«4.4-0«S) then 
?R>S«440«S) THEN 
H (Y) < >0 THEN PRI 
R (Y) < >0 THEN LET 

H>0 THEN GOTO 33 
4 

C16721+ (C*4.-4.+U) 

GOTO 3510 
THEN LET F=1 


H CHRMBER DO YOU 
TE THE MRGIC URL 


4.020 INPUT L 

4.030 IF L<1 OR L>N THEN GOTO 4.02 
0 

4.04.0 IF R(L)<>0 THEN GOTO 4080 
4050 PRINT , , -THE MRGIC URLL NOU 
EXISTS IN CHRMBER -;L 

4060 GOTO 4110 

4060 PRINT ^ ^ -SB9HBBEI- -• CHRMBER 
-;L;- RLRERDY-- , "CONTRINS MRGIC, 
THE URLL FRILS.- 
4000 LET L=0 
4110 PRINT 

4120 LET R = INT ( RND 4^2 1 4>20 ) 

4130 GOSUB 600 
4140 RETURN 

5000 PRINT ,,-UHICH CHRMBER TO U 
lEU ?- 

5005 INPUT P 

5010 IF P>0 RND P<N THEN GOTO 50 
30 

5015 GOSUB 9200 

5020 GOTO 5005 

5030 LET F=0 

5035 FOR 1=1 TO 4 

5040 IF BCI)=P THEN LET F=1 

5050 NEXT I 

5060 IF F=0 THEN PRINT , , -YOU MR 
Y ONLY UIEU RDURCENT- , -CHRMBERS . 

5063 IF F=0 THEN GOTO 5005 
5065 GOSUB 500 
5067 CLS 

5070 IF P=C THEN PRINT 'YOU HRUE 
FOUND THE SORCERER- 
5080 IF RCP)=0 RND P=C THEN GOTO 
5130 

5090 IF R(P)=0 THEN PRINT “THE C 
HRMBER IS EMPTY - 

5095 IF R(P>=0 THEN GOTO 5130 
5100 PRINT -THERE IS R 
5110 LET Z=P 
5115 GOSUB 1000 

5120 PRINT -...IN CHRMBER -;P;-. 

S130 LET RaXNT CRND •*•£ 1 + lO ) 

5140 GOSUB 600 
5150 RETURN 
6000 LET F=0 
6010 FOR 1=1 TO 4 
6020 LET B(I)=PEEK 


C 167214 (Y »4-4 


4l) ) 

6025 IF B(I)=0 THEN GOTO 6035 
6030 LET F=F4RCB(I)) 

6035 IF B(I)«C THEN LET F=F-1000 
6040 NEXT I 
6045 CLS 

6050 IF F=0 THEN GOTO 6160 
6060 PRINT -BEURRE 
6070 IF F<0 THEN PRINT 


6080 FOR 1=1 TO 4 
6083 IF B(I)=0 THEN GOTO 6150 
6090 LET T=R(B(D) 

6095 IF T<=0 OR T>11 THEN GOTO 6 
150 

6100 PRINT -I CRN HERR -; 

6 11|^^^T>0 RND T<4 THEN PRINT - 

r^SS^^B^hissing*^*^ then print - 

6130 IF T>6 RND Till THEN PRINT 
-MONEY RRTTLING- 

6140 IF T=ll THEN PRINT -MRGICRL 
MUSIC- 
6150 NEXT I 

6160 PRINT , , -YOU RRE IN CHRMBER 
Y 

6162 IF R(Y)=0 THEN GOTO 6170 

6163 PRINT -THERE IS R 

6164 LET Z=Y 

6165 GOSUB lOOO 

6170 PRINT ,, -TUNNELS LERD TO : - ; 
6180 FOR 1=1 TO 4 

6190 IF B(I)>0 THEN PRINT B(I);* 

6200 NEXT I 
6210 PRINT 
6220 RETURN 
7130 PRINT RT 0,9; -J 


a- 

7140 PRINT YOUR TRSK IS TO T 

RRP THE EUIL- ,,, -SORCERER RND RE 
TURN THE MRGIC- ,,, -CHRLICE. - 
7150 PRINT , , , , - YOUR ONLY PROTE 
CTION IS YOUR- ,,, -MRGIC STRFF UH 
ICH HRS 500 UNITS-,,, -OF POUER , U 
SE IT UISELY TO DEFERT** , , -’THE HR 
ZRRDS OF THE SORCERERS *•,,, -LRIR- 
7160 PRINT RT 21,4;-PRESS Bliliin 
3 TO CONTINUE- 

7170 IF CODE INKE>'$<>118 THEN GO 
TO 7170 

7180 GOSUB 8000 
7190 RETURN 


7999 STOP 

8000 FOR 1=0 TO 21 
6005 PRINT RT 21,31; 

8010 SCROLL 

8020 NEXT I 
8030 RETURN 

8500 LET R=INT (RND*104l) 

3510 LET R$=- 

R - 4 ( - B IG BRT - RND 
R=1)4(-LRRGE SNRKE- RND R=2)4(-P 
OISONOUS SPIDER- RND R=3)4(-UICI 
OUS RRT- RND R=4) 

8520 LET R*=R*4 ( -URMPIRE BRT** RN 
D R=5) 4 ( -DERDLY SCORPION*' RND R* 
6) 4 (-HISSING COBRR- RND R=7)4(**T 
RRRNTULR- RND R =8 ) 4 ( ** SURRM OF KI 
LLER BEES- RND R=9)4(-PRCK OF RR 
TS** RND R = 10) 

8530 LET R$=R$4" BRR**4(-S- RND R 

<9) 4- THE URY,KEY M TO USE HRGJC 
D Tn DF'XDFQT ** 

6540 PRINT RT 23,0; R$( TO 32) 
8550 IF LEN R»=32 THEN GOTO 8580 
8560 LET R$=R$(2 TO ) 

6570 GOTO 8540 
8580 LET C$=-RM4- 

Q59G IF U5R 16528=2 THEN GOTO 86 


8000 LET (Yl, XI) =uHR^ U 
B610 GOSUB 700 
8620 GOTO 2005 

3630 LET R=INT (RND4(R«2)4l) 

8640 PRINT RT 23,0; ’YOU USED -;R 
; UNITS OF POUER.. 

6650 LET M=M-R 

6655 GOSUB 500 

8660 IF M<=0 THEN CLS 

8670 IF M<=0 THEN GOTO 290 

8680 IF RND >.7 THEN GOTO 8720 

8690 PRINT RT 23,0; “THE MRGIC UO 

RKED, YOU MRY PRSS . ** 

8700 GOSUB 500 
3710 GOTO 2100 

8720 PRINT RT 23,0; ** IT FRILS,THE 
CRERTURE RDURNCES . . ** 

8730 GOSUB 500 
8740 GOTO 8540 
9200 LET RM=INT (RND*424l) 

9210 IF R(RM)>0 OR RM=L THEN GOT 
O 9200 

9220 LET R(RM)=X 
9230 RETURN 

9500 LET MtCl.lS TO ) =-| 


9310 LET 15 TO ) =-| 


9520 LET M$(3)=M$C2) 
9530 LET M$(4)=- 


3540 LET 


9550 LET M$(6)=M$(5? 
9560 LET MS (7) = 


:-570 LET M$(8)=" 

1 



9580 LET M$ (9) =M$ (S) 
9 590 LET M$ ( 10 ) = •■ 



?600 LET M$(ll)=- 11 m HB ■ m 

i 1 1 A 1 1 1 1 1 n A M 


9610 LET M$ ( 12) =M$ C 11) 
9620 LET M$ ( 13) =M$ ( 11) 
963 0 L ET M$(14)=- "" 

j n A I 

9640 LET M$(15)=- 

1 liiP.” 

365 0 LET M$ ( 1 6 * * 

|) 




■ M$ ( 16) =- 


9660 LET .M$(17) 

■ * ■ 

9670 LET (18) =- 



9660 LET M$ ( 19) =' 

9690 LET M^ (20) =M$ ( 19) 
9700 LET Mt(21) 


9720 
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Sorcerer's Lair is not a game to be entered upon lightly — danger and temptation 
lurk everywhere in the chambers and tunnels in the underground home of Zabad 
the Sorcerer. 

Your quest is to locate and recover the stolen Chalice of Power . . . 
Armed only with your wits and your magic staff you must search the chambers 
and tunnels: peek into each room before you enter or you might come face to 
face with a fierce dragon or be attacked by an armed dwarf! If you're lucky you 
may encounter a friendly gnome who can be bribed with gold to tell you where 
the Sorcerer and Chalice are. All of your encounters are bound to cost you power 
from your staff. 

Assuming you manage to find the Sorcerer, you must try to trap him by 
building magic walls in adjoining rooms — he can't get past you but he may 
penetrate the wall and escape . . . 

Sorcerer's Lair is an exciting and absorbing graphics/adventure game 
for the 1 6K ZX8 1 (RAMpack needed) and is written in both BASIC and machine 
code. Full details on how to enter and run the program are given inside — even a 
simple-to-use machine code loader is included! The program itself has been ex- 
haustively tried and tested to ensure that you will have little difficulty with the 
listing, and the game is carefully balanced to guarantee an exciting challenge to 
the player. 

This is not a game that can be played and won in a matter of minutes — 
so if you have ever dreamed of being the hero or heroine who takes on the forces 
of evil in order to save the world, this could be just the trial run you've been look- 
ing for! 


ZX COMPUTING contains in each issue all the latest news and tips 
for ZX enthusiasts together with many useful, entertaining and in- 
teresting programs specially written for ZX computers. Published 
on the 4th Friday of January, March, May, July, September and 
November. 

Send £12.10p for six issues together with your name and ad- 
dress to ZX Computing, 513 London Road, Thornton Heath, Sur- 
rey CR4 6AR 





